home *** CD-ROM | disk | FTP | other *** search
/ The Big Mouth 10 / Big_Mouth_The_10_1996_-_Side_A.d64 / numbers (.txt) next >
Commodore BASIC  |  2023-02-26  |  1KB  |  49 lines
  1. 1 poke 53280,5:poke 53281,11:print"[147][155]"tab(17)"numbers"
  2. 2 print"creative computing morristown,new jersey"
  3. 3 a=rnd(-ti)
  4. 4 print"you have 100 points. by guessing a"
  5. 5 print"number from 1 to 5, you can gain or"
  6. 6 print"lose points depending on how close you"
  7. 7 print"get to a random number selected by the  cpmputer"
  8. 9 print"you occasionally will get a jackpot"
  9. 10 print"that will double(!)your point count"
  10. 11 print"you win when you get 500 points"
  11. 12 p=100
  12. 13 def fnr(x)=int(5*rnd(1)+1)
  13. 14 input"guess a number form 1 to 5";g
  14. 15 r=fnr(1)
  15. 16 s=fnr(1)
  16. 17 t=fnr(1)
  17. 18 u=fnr(1)
  18. 19 v=fnr(1)
  19. 20 if g=r then 30
  20. 21 if g=s then 40
  21. 22 if g=t then 50
  22. 23 if g=u then 60
  23. 24 if g=v then 70
  24. 25 if g>5 then 12
  25. 30 p=p-5
  26. 35 goto 80
  27. 40 p=p+5
  28. 45 goto 80
  29. 50 p=p+p
  30. 53 print"you hit the jackpot!!!"
  31. 55 goto 80
  32. 60 p=p+1
  33. 65 goto 80
  34. 70 p=p-(p*.5)
  35. 80 if p>500 then 90
  36. 81 if p=<0 then 100
  37. 82 print"you have";p;"points"
  38. 85 goto 14
  39. 90 print"!!!!you win!!!! with";p;"points"
  40. 93 print"do you want 'nother go???"
  41. 94 get a$:if a$="y" then run
  42. 95 if a$<>"n"then 94
  43. 96 goto 200
  44. 100 print"sorry! you lost! i win (yay!)"
  45. 105 goto 93
  46. 199 :
  47. 200 rem ** end **
  48. 210 fort=1 to 500:next:load"the main menu/bm",8,1
  49.